home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / PROFILE.DIR / 01273_Script_impressions rollover script < prev    next >
Text File  |  1997-07-29  |  934b  |  44 lines
  1. global impRolloverList,current_pm,dopm,the_rolls,prof_rolls
  2. on exitframe
  3.   if the type of sprite 3 <> 0 then
  4.     if the castType of cast the castNum of sprite 3 = #digitalVideo then set the movierate of sprite 3 to 1
  5.   end if
  6.   
  7.   repeat with x in impRolloverList
  8.     if inside(point(the mouseH, the mouseV), x) then
  9.       do getOne(impRolloverList, x)
  10.     end if
  11.   end repeat
  12.   go the frame
  13. end
  14.  
  15. on xidle
  16.   repeat with x in [9,11,12,16]
  17.     if rollover(x) then
  18.       handcursor
  19.       repeat while rollover(x)
  20.         if the mousedown then abort
  21.       end repeat
  22.     else
  23.       cursor 0
  24.     end if
  25.   end repeat
  26.   if dopm = TRUE then
  27.     if current_pm <> 0 then 
  28.       demo_check(current_pm)
  29.       dopm(current_pm)
  30.       --      set the_rolls = prof_rolls
  31.       set_cursors(prof_rolls)
  32.     end if
  33.     set dopm = FALSE
  34.   end if
  35. end
  36.  
  37.  
  38. on mousedown
  39.   cursor 4
  40.   go the frame + 1
  41.   cursor 0
  42. end
  43.  
  44.